home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_1
/
pubdom.tar
/
pubdom
/
wolderin
/
slot
< prev
Wrap
Text File
|
1990-06-02
|
2KB
|
107 lines
%%HP: T(3)A(R)F(.);
DIR
SPIN
\<< 'BANK' RCL \->
X
\<<
IF 'X\<=0'
THEN
"BANKRUPT" 7 DISP 3
FREEZE HALT
ELSE 'BANK'
.1 STO-
END
\>> # 131d
# 64d BLANK (-3,1)
'WHL1' RCL RAND 20
* IP 1 + DUP SUB
DUP 'WHL' STO "1" +
OBJ\-> GOR DUP \->LCD
(-1,1) 'WHL2' RCL
RAND 20 * IP 1 +
DUP SUB DUP 'WHL'
RCL SWAP + 'WHL'
STO "1" + OBJ\-> GOR
DUP \->LCD (1,1)
'WHL3' RCL RAND 20
* IP 1 + DUP SUB
DUP 'WHL' RCL SWAP
+ 'WHL' STO "1" +
OBJ\-> GOR \->LCD 0
'WIN' STO 'WHL' RCL
DUP DUP DUP DUP DUP
DUP DUP DUP DUP 1 1
SUB "C" SAME .2 *
'WIN' STO+ 1 2 SUB
"CC" SAME .3 *
'WIN' STO+ "PPP"
SAME 'WIN' STO+
"PPJ" SAME 'WIN'
STO+ "OOO" SAME
'WIN' STO+ "OOJ"
SAME 'WIN' STO+
"BBB" SAME 'WIN'
STO+ "BBJ" SAME
'WIN' STO+ "JJJ"
SAME 10 * 'WIN'
STO+ "WWW" SAME 10
* 'WIN' STO+ 'WIN'
RCL DUP DUP DUP
'BANK' STO+
IF 0 ==
THEN
"A LOSER" 7 DISP 60
.5 BEEP
END
IF 0 >
THEN
"YOU WIN $" 'WIN'
RCL + 7 DISP 440 .5
BEEP
END
IF 10 ==
THEN
"JACKPOT" 7 DISP
440 .5 BEEP 440 .5
BEEP 880 .5 BEEP
END "BANK=$"
'BANK' RCL + 1 DISP
3 FREEZE CLEAR
\>>
BANK 4.9
WIN 0
INIT
\<< 2 FIX RESET 5
'BANK' STO { SPIN
BANK WIN INIT }
TMENU CLLCD
"BANK=$5.00" 0 DISP
3 FREEZE
\>>
WHL "PBL"
PPAR {
(-6.5,-3.1)
(6.5,3.2) X 0 (0,0)
FUNCTION Y }
WHL1
"LWPCPOLPOCJPOBOPCPOP"
WHL2
"CPCOCBPBCOCWPBCJOCBO"
WHL3
"BLPBOLBWBPLBLBJLBLBL"
B1
GROB 15 20 FFF7100410041004180418041C141E34176413441344134413441F749FF418041C1418041004FFF7
C1
GROB 15 20 FFF7100410041004108410441E5411241E341034182417249464949413941064100410041004FFF7
J1
GROB 15 20 FFF71004100410041004DFF51004DDD555555555DDD555D45555D5551004DFF5100410041004FFF7
L1
GROB 15 20 FFF7100410041004100410041C141E34136491C4500591C413641E341C141004100410041004FFF7
O1
GROB 15 20 FFF710041004100410041E34115498B4D015D005D005D005D10593841F741E34100410041004FFF7
P1
GROB 15 20 FFF7100410041004100410041EB597F591C4D0B5DC85D3C591F41F741E141004100410041004FFF7
W1
GROB 15 20 FFF710041004100410041E7411A49E155155DE5551559E1511A41E7410041004100410041004FFF7
END